home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 28 / 028.d81 / micro melodies (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  81 lines
  1. 1 rem  jukebox i
  2. 5 poke53281,6:poke53280,5:print""chr$(142)"":poke56325,60
  3. 9 a1=52944
  4. 10 rem ****player****
  5. 90 data jesu,medley,a' la gigue,hoe-down,force,bouncer,all 6 tunes,quit
  6. 100 :
  7. 105 fort=1to8:readf$(t):next:poke816,165:poke817,244
  8. 110 :
  9. 120 dn=8:sa=780:sx=781:sy=782:sp=783:poke sa,1:poke sx,dn:poke sy,1:sys 65466
  10. 130 ife=0thenf$="sid.obj":gosub600:pokesa,0:sys65493:e=1:ifpeek(sp)and1goto710
  11. 140 ss=49152:hk=49435:pl=49458:dp=49629:la=peek(49)+256*peek(50)+100:dr=la
  12. 150 for k=la to la+90:read p:poke k,p:next:la=la+91:hi=int(la/256):lo=la-256*hi
  13. 160 goto 510
  14. 300 fora=a1+(ts-1)*40toa1+(ts-1)*40+2:pokea,peek(a)and240or1:next
  15. 301 poke198,0:wait198,1:gett$:p$=t$
  16. 302 ifp$<"1"orp$>"8"then300
  17. 303 ifp$="7"thents=0
  18. 304 ifp$="7"thengetw$:ifpeek(631)<>13thengosub1000
  19. 305 ifpeek(631)=13 thengosub900:goto300
  20. 306 ts=val(t$):k=fre(0):f$=f$(ts):ifts=8then60000
  21. 310 fora=a1+(ts-1)*40toa1+(ts-1)*40+2
  22. 315 pokea,peek(a)and240or7
  23. 316 next
  24. 320 poke sa,1:poke sx,dn:poke sy,0:sys 65466:f$=f$+".mus":gosub 600
  25. 330 poke sa,0:poke sx,lo:poke sy,hi:sys 65493:if peek(sp)and1 goto 700
  26. 400 sys hk:poke sx,lo:poke sy,hi:sys pl:k=peek(sx)+256*peek(sy):f$=" ":c=18
  27. 401 :
  28. 410 :
  29. 412 :
  30. 420 :
  31. 430 wait 56320,16:poke 198,0:poke ss,7
  32. 440 if peek(198) then geta$:poke 198,0:poke ss,0
  33. 450 if peek(ss)and7 goto 440
  34. 460 poke 54276,0:poke 54283,0:poke 54290,0:sys dp:ifa$<>"q"then 500
  35. 462 goto300
  36. 500 fora=a1+(ts-1)*40toa1+(ts-1)*40+2:pokea,peek(a)and240or1:next
  37. 510 ifp$="7"then304
  38. 520 goto300:open 1,8,0,"$":get #1,s$,s$:print " ";:tb=1:k=0
  39. 530 sys dr:tb=tb+13:print tab(tb);:if tb=40 then tb=1:print " ";
  40. 540 if st=0 then k=k+1:goto 530
  41. 550 print:close 1:sys 65484:if k=0 then print:print " no music files on disk"
  42. 560 print:goto 300
  43. 600 for k=1 to len(f$):poke 584+k,asc(mid$(f$,k)):next
  44. 610 poke sa,len(f$):poke sx,73:poke sy,2:sys 65469:return
  45. 700 if peek(sa)=4 then print " i don't know that song":print:goto 300
  46. 710 p=peek(sa):print " error: ";:if p=4 then print "file not found":end
  47. 720 if p=5 then print "device not present":end
  48. 730 print st:end
  49. 800 data 162,1,32,198,255,32,207,255,32,207,255,32,207,255,133,251,32,207,255
  50. 801 data 133,252,32,207,255,164,144,208,62,201,34,208,245,160,0,32,207,255,201
  51. 802 data 34,240,6,153,73,2,200,208,243,132,253,32,207,255,168,208,250,164,253
  52. 803 data 192,5,144,200,162,3,185,72,2,221,69,2,208,190,136,202,16,244,132,253
  53. 804 data 160,0,185,73,2,32,210,255,200,196,253,208,245,96
  54. 1000 ts=ts+1:ifts=7thents=1
  55. 1010 t$=mid$(str$(ts),2):return
  56. 60000 poke56578,63:poke56576,151:poke53265,27:poke53270,200:poke53272,21
  57. 60001 gosub61000
  58. 60002 print"[147]"spc(10)"[210]eturning to [204][207][193][196][211][212][193][210]"
  59. 60005 f$="hello connect"
  60. 60010 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  61. 61000 rem give credits
  62. 61010 print"[147]"spc(12)"** [195]redits **"
  63. 61012 print"[202]esu, [202]oy of [205]an's [196]esiring"
  64. 61014 print"[202].[211]. [194]ach--[193]dapted by [212]om [208]arker"
  65. 61022 print"[202]eremy [194]ender/[212]he [211]heriff"
  66. 61024 print"[197]merson, [204]ake, & [208]almer"
  67. 61032 print"[193]'la [199]igue"
  68. 61034 print"[202]ohann [211]ebastian [194]ach"
  69. 61042 print"[200]oe-[196]own"
  70. 61044 print"[193]aron [195]opeland"
  71. 61046 print"[210]eleased by [197]merson, [204]ake, & [208]almer"
  72. 61052 print"[198]orce"
  73. 61054 print"[202]ohn [215]illiams"
  74. 61056 print"[198]rom the [211]tar [215]ars [211]aga"
  75. 61062 print"[194]ouncer"
  76. 61064 print"[197]merson, [204]ake, & [208]almer"
  77. 61070 print" [193]ll music coded by [204]incoln [195]raig using"
  78. 61072 print"    [211][201][196][197][196][201][212][207][210] by [195]raig [195]hamberlain."
  79. 61075 forx=1to4000:ifpeek(198)=0thennext
  80. 61080 return
  81.